<% sub lianjie(conn,db)
  On Error Resume Next
  connstr="DBQ="+server.mappath(db)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  set conn=server.createobject("ADODB.CONNECTION")
  conn.open connstr 
  end sub
  
  sub closeconn()
  conn.close
  set conn=nothing
  end sub
  call lianjie(conn,"Cns~QQ#&$2008_.asp")

function chkcookie(fString)
fString = replace(fString, "'", "")
fString = replace(fString, " ", "")
chkcookie = fString
end function
  %>